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-- OpTable.mesa, edited by Johnsson, July 20, 1978 11:13 AM 

DIRECTORY 

OpTableDefs: FROM "OpTableDefs'*; 

OpTable: PROGRAM 

EXPORTS OpTableDefs ■ 
BEGIN 

-- generated by OpDefsGenerator 20-Jul-78 11:11 

Q: TYPE ■ PRIVATE RECORD [ 

push: [0..3], pop: [0..7], length: [0..3], mark: BOOLEAN]; 
T: BOOLEAN - TRUE; F: BOOLEAN ■ FALSE; 



OpParms: PRIVATE ARRAY [0 



NOOP 
Q[0,0.1,F] 

MXD 
0[0,1.1.F] 

LGO 
0[1,0,1.F] 

LG4 
0[1.0,1,F] 

LGB 
Q[1.0,2,F] 

SG2 
Q[0.1.1,F] 

LLO 
QCl.O.l.F] 

LL4 
0[1,0.1.F] 

LLB 
Q[1.0.2,F] 

SL2 
QC0.1.1,F] 

SL6 

QC0,i,l,F3 

LIO 
Q[1.0,1.F] 

LI4 
Q[1.0,1,F] 

LIB 
Q[1.0.2,F] 

QCO.O.O.F] 

QCO.O.O.F] 

RO 

QCl.l.l.F] 

R4 

QCl.l.l.F] 

W2 

Q[0,2,1,F] 

RDB 

Q[2,1,2.T] 

RSTR 

Q[1.2,2.T] 

RILP 

Q[1.0.2.F] 

Q[0,0.0,F] 

Q[0,0,O.F] 

QCO.O.O.F] 

WSDB 

0C0.3.2.T] 

PUSH 

Q[1.0.1,F] 

DUP 

0[2.1,1.F] 

J2 

Q[0.0,1,F] 

J6 

QCO.O.l.F] 



ME 

QCl.l.l.F] 

NOTIFY 

QC0.1.1,F] 

LGl 

QCl.O.l.F] 

LG5 

QCl.O.l.F] 

LGDB 
QC2.0.2.T] 

SG3 
QCO.l.l.F] 

LLl 
QCl.O.l.F] 

LL5 

QCl.O.l.F] 

LLDB 

QC2,0,2.T] 

SL3 

QCO.l.l.F] 

SL7 

QCO.l.l.F] 

LIl 

QCl.O.l.F] 
LI5 

QCl.O.l.F] 

LIW 
QC1.0.3.T] 

QCO.O.O.F] 

QCO.O.O.F] 

Rl 

QCl.l.l.F] 

RB 

QC1.1.2.F] 

WB 

QC0.2.2.F] 

RDO 

QC2.1.1.F] 

WSTR 

QC0.3.2.T] 

RIGP 

QC1.0.2.F] 

QCO.O.O.F] 

QCO.O.O.F] 
WSO 

QC0.2.1.F] 
RFC 

QC1.1.3.T] 
POP 

QCO.l.l.F] 

QCO.O.O.F] 
J3 

QCO.O.l.F] 
J7 

QCO.O.l.F] 



.256) OF Q « C 
MRE 
QC1.2.1.F] 
BCAST 

QCO.l.l.F] 

LG2 
QCl.O.l.F] 

LG6 
QCl.O.l.F] 

SGO 
QCO.l.l.F] 

SGB 
QC0,1.2,F] 

LL2 

QCl.O.l.F] 

LL6 

QCl.O.l.F] 

SLO 

QCO.l.l.F] 

SL4 
QC0.1.1.F] 

SLB 
QC0.1.2.F] 

LI2 
QCl.O.l.F] 

LI6 

QCl.O.l.F] 

LINB 

QC1.0.2.F] 

QCO.O.O.F] 

QCO.O.O.F] 
R2 

QCl.l.l.F] 

WO 

QC0.2,1.F] 

RF 

QC1.1.3,T] 

WDB 

QC0.3,2.T] 

RXLP 

QC1.1.2.F] 

WILP 

QC0.1,2.F] 

QCO.O.O.F] 

QCO.O.O.F] 

WSB 

QC0.2,2,T] 

RFS 

QC1.2.1.T] 

EXCH 

QC2,2.1.F] 

QCO.O.O.F] 
J4 

QCO.O.l.F] 
J8 

QCO.O.l.F] 



MXW 

QC0.3,1.F] 

REQUEUE 

QC0.3,1.F] 

LG3 
QCl.O.l.F] 

LG7 
QCl.O.l.F] 

SGI 

QCO.l.l.F] 

SGDB 

QC0.2.2.T] 

LL3 

QCl.O.l.F] 

LL7 

QCl.O.l.F] 

SLl 

QCO.l.l.F] 

SL5 

QCO.l.l.F] 

SLDB 

QC0.2.2.T] 

LI3 

QCl.O.l.F] 

LINl 
QCl.O.l.F] 

QCO.O.O.F] 

QCO.O.O.F] 

QCO.O.O.F] 
R3 

QCi.i.i.n 

Wl 

QC0.2.1.F] 

WF 

QC0.2.3,T] 

WDO 

QC0.3.1,F] 

WXLP 

QC1.1.2.F] 

RILO 

QCl.O.l.F] 

QCO.O.O.F] 

QCO.O.O.F] 
WSF 

0[0.2.3.T] 
WFS 

QC0.3.1.T] 
PUSHX 

QCl.O.l.F] 

QCO.O.O.F] 
J5 

QCO.O.l.F] 
09 

QCO.O.l.F] 



000-003 
004-007 
010-013 
014-017 
020-023 
024-027 
030-033 
034-037 
040-043 
044-047 
060-063 
054-057 
060-063 
064-067 
070-073 
074-077 
100-103 
104-107 
110-113 
114-117 
120-123 
124-127 
130-133 
134-137 
140-143 
144-147 
150-153 
154-167 
160-163 
164-167 
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JB 


JW 


JEQ2 


JEQ3 


170-173 


0[0.0.2,T]. 


QCO.O.a.T] 


QC0,2.1.F3 


Q[0.2.1.F3. 




JEQ4 


JEQ5 


JEQ6 


JEQ7 


174-177 


Q[0.2,1.F]. 


QC0.2.1.F] 


QC0,2,1.F3 


Q[0.2.1.F3, 




JEQ8 


JEQ9 


JEQB 


JNE2 


200-203 


Q[0,2.1.F]. 


Q[0.2,1.F3 


Q[0,2.2.T3 


QC0.2.1.F3. 




JNE3 


JNE4 


JNE5 


JNE6 


204-207 


Q[0.2.1,F]. 


Q[0.2.1,F] 


QC0,2,1.F3 


Q[0,2.1.F3. 




JNE7 


JNE8 


JNE9 


JNEB 


210-213 


QC0.2.1.F]. 


QC0.2.1.F] 


0C0,2,1J3 


QC0.2.2.T3. 




JLB 


JGEB 


JGB 


JLEB 


214-217 


Q[0.2,2,T]. 


QC0.2.2.T] 


QC0,2.2.T3 


Q[0.2.2.T3. 




JULB 


JUGEB 


JUGB 


JULEB 


220-223 


Q[0.2.2,T]. 


QC0.2.2,T] 


QC0.2.2,T3 


QC0.2.2.T3. 




JZEQB 


JZNEB 


JIB 


JIW 


224-227 


Q[0.1.2,T]. 


QC0.1.2.T] 


QC0.2.3.T3 


Q[0.2,3.T3. 




RBL 


WBL 


RDBL 




230-233 


Q[1.2,2,F]. 


QC0,3.2.F] 


QC2.2.2.F3 


QC0,0.0.F3. 




WDBL 


RXLPL 


WXLPL 


RXGPL 


234-237 


Q[0.4,2.F3. 


Q[1.1.2,F] 


Q[0,2.2.F3 


Q[1.1.2.F3. 




WXGPL 


RILPL 


WILPL 


RIGPL 


240-243 


QC0.2,2.F]. 


QC1.0,2,F] 


QC0.1.2,F3 


QC1.0.2.F3, 




WIGPL 


RSTRL 


WSTRL 


RFL 


244-247 


Q[0,1.2.F]. 


Q[1.3,2.F] 


QC0.4.2.F3 


Q[1.2,3,T3, 




WFL 


BLTL 


RFSL 


WFSL 


250-263 


Q[0,3.3.T], 


Q[0.6,1.F] 


QC1.3.1.T3 


QC0.4,1.T3, 




DESCB 


DESCBS 


LP 


BLTCL 


254-257 


0[1.0.2,T], 


Q[1.1.2.T] 


QC2,1.1.F3 


Q[0.4.1.F3, 




ADD 


SUB 


MUL 


DBL 


260-263 


Q[1.2.1,F]. 


QC1.2.1,F] 


. QC1.2.1.F3 


QC1,1.1.F3. 




DIV 


LDIV 


NEG 


INC 


264-267 


QC1.2.1,F]. 


QC1.3.1.F] 


QCi,i.i»F3 


Q[1.1.1»F3. 




AND 


OR 


XOR 


SHIFT 


270-273 


Q[1.2.1,F]. 


Q[a.2.i.F3 


Q[1,2.1,F3 


Q[1.2.1.F3. 




DADD 


DSUB 


DCOMP 


ADOOl 


274-277 


0[2,4.1.F]. 


Q[2,4.1.F3 


QC1.4.1.F3 


Q[1,2,1.F3. 




EFCO 


EFCl 


EFC2 


EFC3 


300-303 


Q[0.0,1.F], 


Q[0.0.1,F3 


QC0.0.1.F3 


Q[0.0.1.F3. 




EFC4 


EFC5 


EFC6 


EFC7 


304-307 


0[0,0,1.F]. 


Q[0.0,1,F3 


Q[0.0.1.F3 


Q[0.0.1,F3, 




EFC8 


EFC9 


EFCIO 


EFCll 


310-313 


QCO.O.l.F], 


Q[0,0,1,F3 


Q[0,0.1.F3 


0[0.0.1.F3, 




EFC12 


EFC13 


EFC14 


EFC15 


314-317 


Q[0.0.1.F], 


QC0.0.1.F3 


0C0.0.1.F3 


Q[0,0.1.F3. 




EFCB 


LFCl 


LFC2 


LFC3 


320-323 


Q[0.0.2.F3, 


0[0.0.1,F3 


Q[0,0,1.F3 


Q[0.0,1.F3. 




LFC4 


LFC6 


LFC6 


LFC7 


324-327 


Q[0.0,1,F], 


QCO.o,i,F3 


Q[0,0.1.F3 


Q[0.0,1.F3, 




LFC8 


LFC9 


LFCIO 


LFCll 


330-333 


Q[0.0,1.F], 


Q[0.0.1,F3 


Q[0,0.1.F3 


Q[0,0.1.F3, 




LFC12 


LFC13 


LFC14 


LFC16 


334-337 


Q[0,0,1,F]. 


Q[0.0.1,F3 


Q[0.0.1.F3 


Q[0.0.1.F3. 




LFC16 


LFCB 


SFC 


RET 


340-343 


Q[0.0.1,F], 


Q[0.0,2.F3 


Q[0.1,1,F3 


Q[0.0.1.F]. 




LLKB 


PORTO 


PORTI 


KFCB 


344-347 


Q[1.0.2,T], 


Q[0,1.1,F3 


Q[0.0,1.F3 


Q[0.0.2,F3. 




LADRB 


GADRB 


BLT 


ALIOC 


360-353 


Q[1.0,2,F], 


QC1,0,2,F3 


Q[0.3.1.F3 


QC1.1»1.F3. 




FREE 


IWDC 


DWDC 


BLTC 


354-367 


QC0,i.i,F3. 


Q[0.0.1,F3 


Q[0,0.1,F3 


Q[0,3.1,F3. 




STOP 


CATCH 


MISC 




360-363 


Q[0.0.1.F], 


Q[0,0,2.T3 


Q[0.0,2.F3 


Q[0.0.0.F3. 




BITBLT 


STARTIO 


J RAM 




364-367 


Q[0.2,1,T]. 


Q[0.1,1,F3 


QC0.1,1,F3 


Q[0.0.0.F3. 




DST 


LST 


LSTF 




370-373 


Q[0.0.2.T]. 


Q[0,0,2,T3 


QCO.0.2,T3 


Q[0,0.0,F3. 




WR 


RR 


BRK 




374-377 


Q[0.1.2.T]. 


QC1,0,2,T3 


QC0,0,1.F3 


QCO.O.O.F33; 





Page 



pushstack: PUBLIC PROCEDURE [b: [0.. 256)3 RETURNS [[0..333 
BEGIN 

RETURN[OpParms[b3.push3 
END; 



popstack: PUBLIC PROCEDURE [br [0., 256)3 RETURNS CC0..733 
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BEGIN 

RETURN[OpParnis[b].pop] 

END; 



instlength: PUBLIC PROCEDURE [b: [0..256)] RETURNS [[0..3]] - 
BEGIN 

RETURN[OpParms[b]. length] 
END; 

instaligned: PUBLIC PROCEDURE [b: [0..256)] RETURNS [BOOLEAN] - 
BEGIN 

RETURN[OpParnis[b].mark] 
END; 

END. 



